<%@ Language=VBScript %>
<% Option Explicit %>
<HTML>
	<HEAD>
		<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
	
		<%
			Dim RefPage, ServerName, RemAddr
			'Response.Write "Form String: " & Request.Form & "<br><br>"
			RefPage = Request.ServerVariables("HTTP_Referer")
			RemAddr = Request.ServerVariables("Remote_ADDR")
			ServerName = Request.ServerVariables("Server_Name")
			
			If Instr(1, RefPage, ServerName, 1) > 0 Then
				'Response.Write "Form String: " & Request.Form & "<br><br>"
				Response.Write "Referring Page: " & RefPage & "<br>"
				Response.Write "Remote Address: " & RemAddr & "<br>"
				Response.Write "Server Name: " & ServerName & "<br>"
			Else
				Response.Write "<p align=center>Posting from remote sites is not allowed.</p>"
			End If
		%>
	</HEAD>
	<BODY>

	<P>&nbsp;</P>

	</BODY>
</HTML>
